home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 117 / 117.d81 / tom dooley (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  58 lines
  1. 5 rem: tom dooley-piano/flute/harpsicord
  2. 10 poke53281,0:poke53280,0:print"[147][129]"
  3. 15 printtab(10)"[212] [207] [205]    [196] [207] [207] [204] [197] [217]"
  4. 17 printtab(12)"[154]by [205]arjorie [211]cott"
  5. 20 s=54272:       rem name first reg.
  6. 30 fori=stos+24:  rem clear registers
  7. 40 pokei,0:next:  rem set all to 0
  8. 50 pokes+24,15:   rem set volume = 15
  9. 70 pokes+2,225:   rem low pulse  v1
  10. 80 pokes+3,0:     rem high pulse v1
  11. 90 pokes+5,9:     rem att/dec    v1
  12. 100 pokes+6,0:    rem sus/rel    v1
  13. 130 pokes+9,0:    rem low pulse  v2
  14. 140 pokes+10,0:   rem high pulse v2
  15. 150 pokes+12,96:  rem att+dec    v2
  16. 160 pokes+13,0:   rem sus+rel    v2
  17. 161 pokes+16,0:   rem lo pulse   v3
  18. 162 pokes+17,9:   rem hi pulse   v3
  19. 163 pokes+19,9:   rem att+dec    v3
  20. 164 pokes+20,0:   rem sus+rel    v3
  21. 170 read hi,lo,du:rem read 3 datas
  22. 180 ifhi=0then400:rem zero-end tune
  23. 190 pokes+1,hi:pokes,lo:rem notes v1
  24. 192 oc=1
  25. 200 pokes+8,hi/oc:pokes+7,lo:rem notes v2
  26. 201 pokes+15,hi*oc:pokes+14,lo:rem notesv3
  27. 210 pokes+4,65:   rem wave on   v1
  28. 220 pokes+11,17:  rem wave on   v2
  29. 221 pokes+18,33:  rem wave on   v3
  30. 230 for z=1todu/4:rem sound length
  31. 240 next:         rem sound loop
  32. 250 pokes+4,64:   rem wave off   v1
  33. 260 pokes+11,16:  rem wave off   v2
  34. 261 pokes+18,32:   rem wave off   v3
  35. 280 for t=1to25:  rem timing
  36. 281 next:         rem loop
  37. 290 goto 170:     rem read again
  38. 300 data 18,104,250,18,104,500,18,104,250,20,169,500,24,146,500
  39. 310 data 30,245,1000,30,245,1000
  40. 320 data 18,104,250,18,104,500,18,104,250,20,169,500,24,146,500
  41. 340 data 27,148,2000
  42. 350 data 18,104,250,18,104,500,18,104,250,20,169,500,24,146,500
  43. 360 data 27,148,1000,27,148,1000
  44. 370 data 27,148,250,27,148,500,30,245,250,24,146,500,20,169,500,24,146,1500
  45. 380 data 0,0,0
  46. 400 printtab(9)"1 [159]- [208]lay it again, [205]arge"
  47. 410 printtab(9)"2 [159]- [210]eturn to [204][207][193][196][211][212][193][210]"
  48. 420 geta$:ifa$=""then420
  49. 430 ifa$="1"thenrun
  50. 440 ifa$<>"2"then420
  51. 450 goto40000
  52. 10000 open15,8,15,"s0:tom dooley":close15:save"tom dooley",8:end
  53. 40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40020
  54. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  55. 40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
  56. 40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  57. 40040 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end
  58.